home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)expo88a.d64 / letters (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  176 lines
  1. 10 PRINT"[147]"TAB(8)"*** ONE MOMENT PLEASE ***"
  2. 20 FORA=49465TO49467:B=B+PEEK(A):NEXT:IFB=384THENCLR:GOSUB1140:GOTO40
  3. 30 SYSPEEK(45)+PEEK(46)*256-2584:CLR:GOSUB1140:SYSCM
  4. 40 PRINTCHR$(14);"[147]            SELECT FROM MENU  "
  5. 50 PRINT"       [195]    =    [195][210][197][193][212][197][160][196][207][195][213][205][197][206][212]"
  6. 60 PRINT"       [196]    =    [196][201][211][208][204][193][217] [196][207][195][213][205][197][206][212]"
  7. 70 PRINT"       [204]    =    [204][207][193][196][160][196][207][195][213][205][197][206][212]"
  8. 80 PRINT"       [208]    =    [208][210][201][206][212][160][196][207][195][213][205][197][206][212]"
  9. 90 PRINT"       [211]    =    [211][193][214][197][160][196][207][195][213][205][197][206][212]"
  10. 100 PRINT"       [199]    =    [199][197][212] [196][201][210][197][195][212][207][210][217]"
  11. 110 PRINT"       [197]    =    [197][216][201][212][160][208][210][207][199][210][193][205]":GOSUB1720
  12. 120 GOSUB1380
  13. 130 IFZ$="C"THEN270
  14. 140 IFZ$="D"THEN510
  15. 150 IFZ$="L"THEN610
  16. 160 IFZ$="P"THEN700
  17. 170 IFZ$="S"THEN1030
  18. 180 IFZ$="G"THEN1570
  19. 190 IFZ$="E"THENPRINT"[147]        [211][217][211][212][197][205][160][210][197][211][197][212][160][201][206][160][208][210][207][199][210][197][211][211]":SYS64738
  20. 200 IFZ$="[133]"THEN1080
  21. 210 IFZ$="[137]"THENPOKEBO,14:POKEBB,14
  22. 220 IFZ$="[134]"THEN1100
  23. 230 IFZ$="[138]"THENPOKEBA,6
  24. 240 IFZ$="[135]"THEN1120
  25. 250 IFZ$="[139]"THENPOKE646,14:POKECH,14:M=14:GOTO40
  26. 260 GOSUB1740:GOTO120
  27. 270 GOSUB1330
  28. 280 GOSUB1380
  29. 290 IFZ$="Y"THEN40
  30. 300 IFZ$<>"N"THENGOSUB1740:GOTO280
  31. 310 PRINT"[147]       [211][212][193][206][196][193][210][196][160][205][193][210][199][201][206][160][211][197][212][213][208][160][201][211]:"
  32. 320 PRINT"    [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  33. 330 PRINT"         LEFT MARGIN     =   5"
  34. 340 PRINT"         RIGHT MARGIN    =   5"
  35. 350 PRINT"         TOP MARGIN      =   3"
  36. 360 PRINT"         BOTTOM MARGIN   =   3"
  37. 370 PRINT"    DO YOU WISH TO RESPECIFY ? (Y/N) "
  38. 380 GOSUB1720
  39. 390 GOSUB1380:IFZ$="N"THENB=0:GOTO420
  40. 400 IFZ$="Y"THEN460
  41. 410 GOSUB1740:GOTO390
  42. 420 PRINT"[147]            [195][204][197][193][210][201][206][199][160][205][197][205][207][210][217]":IFB=1THEN440
  43. 430 POKELA,5:POKERA,75:POKELP,60:POKELS,6
  44. 440 SYSCR
  45. 450 GOTO40
  46. 460 GOSUB1400
  47. 470 GOSUB1380
  48. 480 IFZ$="N"THEN40
  49. 490 IFZ$<>"Y"THENGOSUB1740:GOTO470
  50. 500 POKELA,LM:POKERA,80-RM:POKELP,66-TM-BM:POKELS,TM+BM:B=1:GOTO420
  51. 510 PRINT"[147]"TAB(14)"[196][201][211][208][204][193][217] [198][210][207][205]":PRINTTAB(13)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  52. 520 PRINT"     [194] [146]  =   BEGINNING OF DOCUMENT"
  53. 530 PRINT"     [204] [146]  =   LAST CURSOR POSITION":GOSUB1720
  54. 540 GOSUB1380
  55. 550 IFZ$="L"THENDA=DL:GOTO580
  56. 560 IFZ$="B"THENDA=DB:GOTO580
  57. 570 GOSUB1740:GOTO540
  58. 580 IFPEEK(49179)+PEEK(49180)<>66THEN430
  59. 590 SYSDA
  60. 600 GOTO40
  61. 610 GOSUB1330
  62. 620 GOSUB1380
  63. 630 IFZ$="Y"THEN40
  64. 640 IFZ$<>"N"THENGOSUB1740:GOTO620
  65. 650 PRINTCHR$(142);"[147]"TAB(12)"LOAD A DOCUMENT":PRINTTAB(11)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  66. 660 GOSUB1720:DN$="":INPUT" DOCUMENT NAME ";DN$:IFDN$=""THEN40
  67. 670 DN$=LEFT$(DN$,16)
  68. 680 PRINT" CLEARING MEMORY":SYSCM:PRINT" LOADING ";DN$
  69. 690 OPEN8,8,8,"0:"+DN$+",S,R":SYSLO:CLOSE8:GOTO1480
  70. 700 PRINT"[147]"TAB(12)" PRINTER SETUP [146]"
  71. 710 GOSUB1720:INPUT"  [200][207][215][160][205][193][206][217][160][195][207][208][201][197][211][160][212][207] [208][210][201][206][212]          1[157][157][157]";I
  72. 720 IFI<1THEN700
  73. 730 GOSUB1720:INPUT"  [208][210][201][206][212] [198][210][207][205] [194][197][199][201][206][206][201][206][199]     (Y/N)    Y[255][157][157]";Z$
  74. 740 IFZ$="Y"THENPA=PB:GOTO770
  75. 750 IFZ$<>"N"THENPRINT"[145][145][145][145]":GOTO730
  76. 760 PA=PL
  77. 770 GOSUB1720:INPUT"  [194][207][204][196][198][193][195][197] [212][217][208][197]            (Y/N)    N[157][157][157]";Z$
  78. 780 IFZ$="Y"THENBF$=BS$:GOTO810
  79. 790 IFZ$<>"N"THENPRINT"[145][145][145][145]":GOTO770
  80. 800 BF$=BC$
  81. 810 GOSUB1720:INPUT"  [202][213][211][212][201][198][217][160][210][201][199][200][212][160][205][193][210][199][201][206]     (Y/N)    Y[157][157][157]";Z$
  82. 820 IFZ$="Y"THENPOKEJR,1:GOTO850
  83. 830 IFZ$="N"THENPOKEJR,0:GOTO850
  84. 840 PRINT"[145][145][145][145]":GOTO810
  85. 850 GOSUB1720:INPUT"  [205][213][204][212][201][208][204][197] [198][201][204][197] [196][207][195][213][205][197][206][212]   (Y/N)    N[157][157][157]";Z$:I$=Z$
  86. 860 IFZ$="N"THEN:POKELL,0:FF$=CHR$(12):GOTO930
  87. 870 IFZ$<>"Y"THENPRINT"[145][145][145][145]":GOTO850
  88. 880 GOSUB1720:I=1:INPUT"  [198][201][210][211][212]/[205][201][196][196][204][197]/[204][193][211][212][160][198][201][204][197] (F/M/L)    F[157][157][157]";Z$
  89. 890 IF Z$="F"THENPOKELL,0:FF$="":GOTO930 
  90. 900 IF Z$="M"THEN:FF$="":GOTO930 
  91. 910 IF Z$<>"L"THENPRINT"[145][145][145][145]":GOTO880
  92. 920 FF$=CHR$(12)
  93. 930 PRINT""TAB(8)" PRINTER READY (Y/N) ? [146]":GOSUB1720
  94. 940 GOSUB1380
  95. 950 IFZ$="N"THEN40
  96. 960 IFZ$<>"Y"THENGOSUB1740:GOTO940
  97. 970 PRINT"[147]";TAB(16)"PRINTING"
  98. 980 OPENLF,DN,SA:PRINT#LF,BF$:CLOSELF:SYSPA
  99. 990 IF PEEK(LL)=0THENFF$=""
  100. 1000 OPENLF,DN,SA:PRINT#LF,BC$+FF$:CLOSELF:IFI$<>"N"THENGOSUB1720:GOTO40
  101. 1010 I=I-1:IFITHENPOKELL,0:GOTO970 
  102. 1020 GOSUB1720:GOTO40
  103. 1030 PRINTCHR$(142);"[147]"TAB(12)"SAVE A DOCUMENT":PRINTTAB(11)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  104. 1040 GOSUB1720:DN$="":INPUT" DOCUMENT NAME ";DN$:IFDN$=""THEN40
  105. 1050 DN$=LEFT$(DN$,16)
  106. 1060 OPEN8,8,8,"0:"+DN$+",S,W"
  107. 1070 PRINT" SAVING ";DN$:SYSSV:CLOSE8:GOTO1480
  108. 1080 IFPEEK(BO)=0THENPOKEBO,15:POKEBB,15:GOTO120
  109. 1090 POKEBO,PEEK(BO)-1:POKEBB,PEEK(BO):GOTO120
  110. 1100 IFPEEK(BA)=0THENPOKEBA,15:GOTO120
  111. 1110 POKEBA,PEEK(BA)-1:GOTO120
  112. 1120 M=M-1:IFM<0THENM=15
  113. 1130 POKE646,M:POKECH,M:GOTO40
  114. 1140 REM ** SET UP POINTERS AND VARIABLES **
  115. 1150 POKE52,63:POKE56,63:POKE650,128
  116. 1160 LM=5:RM=5:TM=3:BM=3:M=14
  117. 1170 CM=49312:MG=50835:VA=49178:LA=49168:RA=49169:LP=49180:LS=49179:LL=49181
  118. 1180 CR=49465:DB=50674:DL=50641:LO=50776:PB=50854:PL=50864:SV=50703
  119. 1190 BB=49458:BA=53281:BO=53280:CH=49348:NL=50740:GD=51366:JR=50915
  120. 1200 POKE49424,64:REM * MARGIN GRAPHIC
  121. 1210 REM  **  DEFINE PRINTER COMMANDS
  122. 1220 BS$=CHR$(27)+CHR$(33):BC$=CHR$(27)+CHR$(34):REM * BOLDFACE SET & CLEAR
  123. 1230 LF=4:DN=4:SA=5:REM * FILE, DEVICE & SECONDARY ADDR FOR BOLDFACE COMMANDS
  124. 1240 POKE50929,27:REM * UNDERLINE SET COMMAND #1
  125. 1250 POKE50934,216:REM * UNDERLINE SET COMMAND #2
  126. 1260 POKE50939,0:REM * UNDERLINE SET COMMAND #3
  127. 1270 POKE50955,27:REM * UNDERLINE CLEAR COMMAND #1
  128. 1280 POKE50960,217:REM * UNDERLINE CLEAR COMMAND #2
  129. 1290 POKE50965,0:REM * UNDERLINE CLEAR COMMAND #3
  130. 1300 POKE50875,4:REM * FILE & DEVICE # FOR TEXT
  131. 1310 POKE50878,7:REM * SECONDARY ADDRESS FOR TEXT
  132. 1320 RETURN
  133. 1330 PRINT"[147]    [205][197][205][207][210][217][160][215][201][204][204][160][194][197][160][195][204][197][193][210][197][196][160][215][201][212][200][160][212][200][201][211]"
  134. 1340 PRINT"   [160][198][213][206][195][212][201][207][206]. [201][211][160][212][200][197][210][197][160][193][160][196][207][195][213][205][197][206][212][160][201][206]"
  135. 1350 PRINT"    [205][197][205][207][210][217][160][217][207][213][160][215][201][211][200][160][212][207] [211][193][214][197][160][198][201][210][211][212] ??"
  136. 1360 PRINT"   [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":PRINTTAB(16)" (Y/N) [146]"
  137. 1370 GOSUB1720: RETURN
  138. 1380 SYSMG
  139. 1390 Z$=CHR$(PEEK(VA)):RETURN
  140. 1400 PRINT"[147]            [211][208][197][195][201][198][217] [205][193][210][199][201][206][211]:"
  141. 1410 PRINT"          [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  142. 1420 GOSUB1720:INPUT"           LEFT MARGIN    ";LM
  143. 1430 GOSUB1720:INPUT"           RIGHT MARGIN   ";RM:IFLM+RM>79THEN1400
  144. 1440 GOSUB1720:INPUT"           TOP MARGIN     ";TM
  145. 1450 GOSUB1720:INPUT"           BOTTOM MARGIN  ";BM:IFTM+BM>65THEN1400
  146. 1460 PRINT"           LOOK O.K ? (Y/N) ":GOSUB1720
  147. 1470 RETURN
  148. 1480 OPEN15,8,15:INPUT#15,A$,B$:CLOSE15
  149. 1490 IFB$="OK"THEN40
  150. 1500 IFB$="FILE EXISTS"THENGOSUB1740:GOTO1640
  151. 1510 PRINT"[147]  [192][192][192][192]ERROR[192][192][192]>   ";B$
  152. 1520 PRINT"  DOCUMENT NAME WAS ";DN$
  153. 1530 PRINT"              PRESS ANY KEY     [146]":GOSUB1740
  154. 1540 GOSUB1380
  155. 1550 IFZ$=""THEN1540
  156. 1560 PRINTCHR$(14):GOTO40
  157. 1570 PRINT"[147]";CHR$(142):SYSGD
  158. 1580 OPEN15,8,15:INPUT#15,A$,B$:CLOSE15
  159. 1590 IFB$<>"OK"THEN1510
  160. 1600 PRINT"              PRESS ANY KEY    [146]":GOSUB1720
  161. 1610 GOSUB1380
  162. 1620 IFZ$=""THEN1610
  163. 1630 PRINTCHR$(14):GOTO40
  164. 1640 PRINT"[147]"TAB(14)B$
  165. 1650 PRINT"      REPLACE WITH NEW ONE ? (Y/N)"
  166. 1660 GOSUB1380
  167. 1670 IFZ$="N"THEN40
  168. 1680 IFZ$<>"Y"THENGOSUB1740:GOTO1660
  169. 1690 PRINT""TAB(8)"NAMING OLD FILE "+CHR$(34)+"BACKUP"+CHR$(34)
  170. 1700 OPEN15,8,15:PRINT#15,"S0:BACKUP":PRINT#15,"R0:BACKUP="+DN$:CLOSE15
  171. 1710 PRINTTAB(10):GOTO1060
  172. 1720 POKE54296,15:POKE54277,0:POKE54278,247:POKE54276,17:POKE54273,40
  173. 1730 POKE54272,0:FORT=1TO100:NEXT:POKE54276,14:RETURN
  174. 1740 POKE54296,15:POKE54277,45:POKE54278,165:POKE54276,33:POKE54273,6
  175. 1750 POKE54272,5:FORT=1TO200:NEXT:POKE54276,14:POKE54273,0:POKE54272,0:RETURN
  176.